home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Developer's Kit 1996
/
Delphi Developer's Kit 1996.iso
/
power
/
arrays
/
arrtest1.dfm
/
arrtest1.txt
Wrap
Text File
|
1995-12-22
|
6KB
|
268 lines
object MainForm: TMainForm
Left = 456
Top = 168
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Test of Resizeable Arrays'
ClientHeight = 388
ClientWidth = 527
Font.Color = clWindowText
Font.Height = -17
Font.Name = 'System'
Font.Style = []
Menu = MainMenu1
PixelsPerInch = 120
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
TextHeight = 20
object ArrayProperties: TGroupBox
Left = 200
Top = 9
Width = 313
Height = 97
Caption = 'Array Properties'
TabOrder = 2
object Label1: TLabel
Left = 16
Top = 32
Width = 92
Height = 20
Caption = 'Array type: '
end
object ArrayType: TLabel
Left = 120
Top = 32
Width = 84
Height = 20
Caption = 'ArrayType'
end
object ArraySize: TLabel
Left = 120
Top = 56
Width = 78
Height = 20
Caption = 'ArraySize'
end
object Label2: TLabel
Left = 16
Top = 56
Width = 88
Height = 20
Caption = 'Array size :'
end
end
object ArrayGroupbox: TGroupBox
Left = 8
Top = 8
Width = 185
Height = 369
Caption = '&Array Items'
TabOrder = 0
end
object ArrayItems: TListBox
Left = 24
Top = 32
Width = 153
Height = 329
ExtendedSelect = False
ItemHeight = 20
TabOrder = 1
OnClick = ArrayItemsClick
end
object EditItems: TGroupBox
Left = 200
Top = 120
Width = 313
Height = 201
Caption = '&Edit Array Items'
TabOrder = 3
object Label3: TLabel
Left = 16
Top = 36
Width = 45
Height = 20
Caption = '&Value'
FocusControl = EdtItem
end
object Label4: TLabel
Left = 16
Top = 76
Width = 47
Height = 20
Caption = 'Inde&x:'
FocusControl = EdtIndex
end
object EdtItem: TEdit
Tag = 100
Left = 88
Top = 32
Width = 209
Height = 29
MaxLength = 20
TabOrder = 0
end
object BtnSet: TButton
Left = 16
Top = 112
Width = 129
Height = 33
Caption = '&Set'
Default = True
TabOrder = 2
OnClick = BtnSetClick
end
object BtnGet: TButton
Left = 168
Top = 112
Width = 129
Height = 33
Caption = '&Get'
TabOrder = 3
OnClick = BtnGetClick
end
object EdtIndex: TEdit
Left = 88
Top = 72
Width = 209
Height = 29
TabOrder = 1
end
object BtnInsert: TButton
Left = 16
Top = 152
Width = 129
Height = 33
Caption = '&Insert'
TabOrder = 4
OnClick = BtnInsertClick
end
object BtnDelete: TButton
Left = 168
Top = 152
Width = 129
Height = 33
Caption = '&Delete'
TabOrder = 5
OnClick = BtnDeleteClick
end
end
object BtnClose: TButton
Left = 368
Top = 336
Width = 129
Height = 33
Caption = 'Close'
ModalResult = 2
TabOrder = 5
OnClick = MnuFileExitClick
end
object BtnFill: TButton
Left = 216
Top = 336
Width = 129
Height = 33
Caption = '&Fill'
TabOrder = 4
OnClick = BtnFillClick
end
object MainMenu1: TMainMenu
Left = 192
Top = 360
object Datei1: TMenuItem
Caption = '&File'
OnClick = Datei1Click
object MnuFileOpen: TMenuItem
Caption = '&Open...'
OnClick = MnuFileOpenClick
end
object MnuFileSaveAs: TMenuItem
Caption = 'Save &As...'
OnClick = MnuFileSaveAsClick
end
object N4: TMenuItem
Caption = '-'
end
object MnuFileReadStream: TMenuItem
Caption = '&Read Stream...'
OnClick = MnuFileReadStreamClick
end
object MnuFileWriteStream: TMenuItem
Caption = '&Write Stream...'
OnClick = MnuFileWriteStreamClick
end
object N3: TMenuItem
Caption = '-'
end
object MnuTextfileRead: TMenuItem
Caption = 'R&ead Textfile...'
Enabled = False
OnClick = MnuTextfileReadClick
end
object MnuTextfileWrite: TMenuItem
Caption = 'Write &Textfile...'
Enabled = False
OnClick = MnuTextfileWriteClick
end
object N5: TMenuItem
Caption = '-'
end
object MnuFileExit: TMenuItem
Caption = 'E&xit'
OnClick = MnuFileExitClick
end
end
object Arrays1: TMenuItem
Caption = '&Arrays'
OnClick = Arrays1Click
object MnuUse: TMenuItem
Caption = '&Use...'
OnClick = MnuUseClick
end
object MnuArraysRedim: TMenuItem
Caption = '&ReDim...'
OnClick = MnuArraysRedimClick
end
object MnuArraysDestroy: TMenuItem
Caption = '&Destroy'
Enabled = False
end
object MnuInspect: TMenuItem
Caption = '&Inspect...'
OnClick = MnuInspectClick
end
object MnuArrayEnlarge: TMenuItem
Caption = 'Enlarge &View...'
OnClick = MnuArrayEnlargeClick
end
object N1: TMenuItem
Caption = '-'
end
object MnuArraysSum: TMenuItem
Caption = '&Sum'
OnClick = MnuArraysSumClick
end
object MnuArraysFind: TMenuItem
Caption = '&Find...'
OnClick = MnuArraysFindClick
end
object MnuArraysSort: TMenuItem
Caption = 'S&ort...'
OnClick = MnuArraysSortClick
end
object MnuArraysClone: TMenuItem
Caption = '&Clone'
OnClick = MnuArraysCloneClick
end
object N2: TMenuItem
Caption = '-'
end
object MnuCopyItems: TMenuItem
Caption = 'Copy &Items...'
OnClick = MnuCopyItemsClick
end
end
end
end